home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 42
/
Amiga Format AFCD42 (Issue 126, Aug 1999).iso
/
-serious-
/
hardware
/
ioblix12usr379
/
install_serial_module
< prev
next >
Wrap
Text File
|
1999-05-14
|
6KB
|
230 lines
;
; $VER: IOBlix1200 installation 1.4 (9.11.98)
;
; Copyright (c) 1998 Thore Böckelmann and RBM Computertechnik
;
;****************************************************************************
;
; English texts
;
(if (not (= @language "deutsch"))
(
(set #bad-kick "You must have AmigaOS 2.0 (V37) or newer to be able to use the IOBlix1200 I/O board.")
(set #bad-cpu "You must have at least an MC68020 to use the IOBlix1200 software.")
(set #nosermodule (cat "You have no IOBlix1200 serial module installed! "
"Please install the module first, before you install the software!"))
(set #selectdevs "\nWhere to install the device drivers?\n")
(set #selectl "\nWhere to install the IOBlix-Handler?\n")
(set #selecttool "\nWhere to install the additional tools?\n")
(set #copyserdev "\nCopying ioblix12ser.device...\n")
(set #copyhandler "\nCopying IOBlix-Handler...\n")
(set #copydosdriver "\nCopying DOSDrivers...\n")
(set #copytools "\nCopying Tools...\n")
(set #createtest "\nCreating \"Test_Board\" script...\n")
(set #ssmodify "\nAdding some command to S:User-Startup...\n")
(set #toolsource "C/english")
(set #nsdinfo (cat "\n"
"\n"
"If don't want to use IOBlix' own drivers SERxx: and PARxx: "
"but the original drivers instead, then you also have to install the NSDPatch software!\n"
"\n"
"NSDPatch can be found in the drawer \"Goodies\""))
)
)
;****************************************************************************
;
; Deutsche Texte
;
(if (= @language "deutsch")
(
(set #bad-kick "Sie müssen AmigaOS 2.0 (V37) oder höher installieren, um die IOBlix1200-Karte zu benutzen.")
(set #bad-cpu "Sie brauchen mindestens einen MC68020, um die IOBlix1200-Software zu benutzen.")
(set #nosermodule (cat "Sie haben kein IOBlix1200 Seriell-Modul in Ihrem Rechner installiert! "
"Bitte bauen Sie erst das Modul ein, bevor Sie die Software installieren!"))
(set #selectdevs "\nWohin sollen die Gerätetreiber kopiert werden?\n")
(set #selectl "\nWohin soll der IOBlix-Handler kopiert werden?\n")
(set #selecttool "\nWohin sollen die Zusatzprogramme kopiert werden?\n")
(set #copyserdev "\nKopiere ioblix12ser.device...\n")
(set #copyhandler "\nKopiere IOBlix-Handler...\n")
(set #copydosdriver "\nKopiere DOSDrivers...\n")
(set #copytools "\nKopiere Zusatzprogramme...\n")
(set #createtest "\nErstelle \"Test_Board\" Skript...\n")
(set #ssmodify "\nFüge Befehle in S:User-Startup ein...\n")
(set #toolsource "C/deutsch")
(set #nsdinfo (cat "\n"
"\n"
"Wenn Sie statt der IOBlix-eigenen Treibern SERxx: und PARxx: "
"lieber weiterhin die originalen Treiber benutzen wollen, dann müssen Sie noch die NSDPatch-Software installieren!\n"
"\n"
"NSDPatch finden Sie in der Schublade \"Goodies\""))
)
)
;****************************************************************************
;
; Setup
;
(complete 0)
(if (< (/ (getversion) 65536) 37)
(abort #bad-kick)
)
(if (patmatch "68000|68010" (database "cpu"))
(abort #bad-cpu)
)
;****************************************************************************
;
; Welcome
;
(welcome)
(complete 10)
;****************************************************************************
;
; Check for IOBlix module
;
(run "IOBlix1200-Install:C/english/SetupIOBlix reinit a1200 ser" (safe))
(if
(= 0
(run "IOBlix1200-Install:C/Look4IOBlix a1200 ser" (safe))
)
(abort #nosermodule)
)
(complete 20)
;****************************************************************************
;
; Setup directory
;
(set #destdevs
(askdir
(prompt #selectdevs)
(help @askdir-help)
(default "DEVS:")
)
)
(set #destl
(askdir
(prompt #selectl)
(help @askdir-help)
(default "L:")
)
)
(set #desttool
(askdir
(prompt #selecttool)
(help @askdir-help)
(default "SYS:IOBlix")
(newpath)
)
)
(set @default-dest #desttool)
(complete 20)
(makedir #desttool
(prompt "")
(help @makedir-help)
(infos)
)
(complete 30)
;****************************************************************************
;
; Install devices
;
(copylib
(help @copylib-help)
(prompt #copyserdev)
(source "devs/ioblix12ser.device")
(dest #destdevs)
(confirm)
)
(copylib
(help @copylib-help)
(prompt #copyhandler)
(source "l/IOBlix-Handler")
(dest #destl)
(confirm)
)
(copyfiles
(help @copyfiles-help)
(prompt #copydosdriver)
(source "DEVS/DOSDrivers")
(choices "SER00" "SER01" "SER02" "SER03")
(dest "SYS:Storage/DOSDrivers")
(infos)
(confirm)
)
(complete 40)
;****************************************************************************
;
; Install tools
;
(copyfiles
(help @copyfiles-help)
(prompt #copytools)
(source #toolsource)
(choices "SetupIOBlix" "QueryIOBlix")
(dest #desttool)
(confirm)
)
(startup "IOBlix I/O Board"
(help @startup-help)
(prompt #ssmodify)
(command (cat (tackon #desttool "SetupIOBlix") " a1200 ser >NIL:"))
)
(complete 60)
(copyfiles
(help @copyfiles-help)
(prompt #createtest)
(dest #desttool)
(source "Test_Board")
(infos)
)
(textfile
(dest (tackon #desttool "Test_Board"))
(prompt #createtest)
(help "")
(append (tackon #desttool "QueryIOBlix >t:queryioblix{$$}\n"))
(append "more t:queryioblix{$$}\n")
(append "delete t:queryioblix{$$} >nil:\n")
)
(complete 80)
(message #nsdinfo)
;****************************************************************************
;
; Exit
;
(complete 100)
(exit)